home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet multimedia / Animacje, filmy i prezentacje / Modelowanie 3D / K-3D 0.6.5.0 / k3d-all-in-one-setup-0.6.5.0.exe / k3d-setup-0.6.5.0.exe / share / lsystem / shell2.ls < prev    next >
Encoding:
Text File  |  2005-02-12  |  321 b   |  16 lines
  1. # --- L-System Parser/Mutator --- Lj Lapre ----------------------------------
  2. 19
  3. 10
  4. 10
  5. #
  6. >(20)PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP
  7. #
  8. P=S>(40)g'
  9. S=[&(90)[cD][A]+(20)^(90)g'&(90)[B][cD]]
  10. #
  11. D=^FD                           # show stalks
  12. #
  13. A=[^gA{.].                      # put polygons on them
  14. B=B^.g.}
  15. @
  16.